results.table <- function(experiment, seat = NULL) {
  if(is.null(seat)) {
    results.covars <- subset(master.sheet, master.sheet$Data == experiment, 
                             c(Candidate.Effect.with.Covars, Candidate.Effect.SE.with.Covars,
                               Candidate.Effect.P.with.Covars))
    results.no.covars <- subset(master.sheet, master.sheet$Data == experiment, 
                                c(Candidate.Effect.No.Covars, Candidate.Effect.SE.No.Covars,
                                  Candidate.Effect.P.No.Covars)) 
  } else {
    results.covars <- subset(master.sheet, master.sheet$Data == experiment & master.sheet$Seat == seat, 
                             c(Candidate.Effect.with.Covars, Candidate.Effect.SE.with.Covars,
                               Candidate.Effect.P.with.Covars))
    results.no.covars <- subset(master.sheet, master.sheet$Data == experiment & master.sheet$Seat == seat, 
                                c(Candidate.Effect.No.Covars, Candidate.Effect.SE.No.Covars,
                                  Candidate.Effect.P.No.Covars)) 
  }
  names(results.covars) <- c("Treatment Effect", "SE", "p")
  names(results.no.covars) <- c("Treatment Effect", "SE", "p")
  results <- rbind(results.covars, results.no.covars)
  results <- round(results, digits = 3)
  row.names(results) <- c("Results Controlling for Pre-Treatment Covariates", "Results without Pre-Treatment Covariates")
  if(is.null(seat)) {
    kable(results)
  } else {
    kable(results, caption = paste0("Results for ", seat))
  }
}